home *** CD-ROM | disk | FTP | other *** search
/ PsL Monthly 1993 December / PSL Monthly Shareware CD-ROM (December 1993).iso / prgmming / dos / basic / pbtool.exe / PBTOGGLE.BAS < prev    next >
BASIC Source File  |  1991-11-11  |  1KB  |  45 lines
  1. '----------------------------------------------------------
  2. '  PROGRAM: PBTOGGLE.BAS         PROGRAMMER: A. KELLETT
  3. '  DATE-WRITTEN: 11/11/91
  4. '  USING POWER BASIC V2.10A
  5. '
  6. '  THIS PROGRAM SETS THE STATUS OF THE CAPS LOCK, NUM LOCK,
  7. '  AND SCROLL LOCK KEYS...
  8. '  VERSION: 0.00    LAST UPDATED: 00/00/00
  9. '----------------------------------------------------------
  10. $INCLUDE "KEYS.INC"
  11. KY$ = UCASE$(COMMAND$)
  12. IF (KY$ = "" OR (LEN(KY$) > 3)) THEN
  13.    PRINT "usage is PBTOGGLE [XXX] where x is any one or more of  C or S or N"
  14.    PRINT "  purpose: <<change>> status of Caps Lock or Num Lock or Scroll Lock"
  15.    END
  16. END IF
  17. NUMPARAMS% = LEN(KY$)
  18.  
  19. DEF SEG = &H0040
  20. STATUSBYTE% = &H0017
  21.  
  22. FOR I% = 1 TO NUMPARAMS%
  23.    BYTEVALUE% = PEEK(STATUSBYTE%)
  24.    XKY$ = MID$(KY$,I%,1)
  25.    IF XKY$ = "C" THEN
  26.       NEWBYTEVALUE% = BYTEVALUE% XOR 64
  27.       POKE STATUSBYTE%, NEWBYTEVALUE%
  28.    ELSE
  29.       IF XKY$ = "N" THEN
  30.          NEWBYTEVALUE% = BYTEVALUE% XOR 32
  31.          POKE STATUSBYTE%, NEWBYTEVALUE%
  32.       ELSE
  33.          IF XKY$ = "S" THEN
  34.             NEWBYTEVALUE% = BYTEVALUE% XOR 16
  35.             POKE STATUSBYTE%, NEWBYTEVALUE%
  36.          ELSE
  37.             PRINT USING "INVALID PARAMETER NUMBER #.";I%
  38.          END IF
  39.       END IF
  40.    END IF
  41.  
  42. NEXT I%
  43.  
  44. END
  45.